home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1993 April
/
CICA MS Windows - April 1993.iso
/
unzipped
/
programr
/
vbasic
/
vbpxen
/
vvglbl.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-08
|
2KB
|
87 lines
' Written by Steve Jackson
' 9152 Brabham Dr.
' Huntington Beach, CA 92646
'
' Global module for Visual Video Paradox demo
'
' Important! Change DEFAULT_DB_DIR to location of your
' paradox tables. At run time (from EXE)
' you can get the working directory from
' CUR_DIR$, but at development time this
' function tells you where Visual Basic is,
' and not your project...
'
' The program moves this value to db_dir$
' in STARTUP() function of VVDBMOD.BAS
'
Global Const DEFAULT_DB_DIR = "\VB\DB"
Global db_dir$
'
' Database records
'
Type CUST
custnumber As String
lastname As String
firstname As String
address As String
city As String
zip As String
tapes_out As Integer
total_spent As Single
End Type
Type ITEM
itemnumber As String
itemdesc As String
custnum As String
inout_code As String
End Type
'
' GLOBAL VARIABLES
'
Global custrec As CUST
Global itemrec As ITEM
Global rc As Integer
'
' CONSTANTS
'
Global Const DB_OK = 0
Global Const DB_NOTFOUND = 89
Global Const DB_RECLOCKED = 9
Global Const TRUE = -1
Global Const FALSE = 0
Global Const CUSTOMER_TABLE = 0
Global Const ITEM_TABLE = 1
Global Const NUMBER_OF_TABLES = 2
Global Const DBKEYED = 0
Global Const DBFIRST = 1
Global Const DBNEXT = 2
Global Const DBLAST = 3
Global Const DBPRIOR = 4
Global Const MB_OK = 0
Global Const MB_OKCANCEL = 1
Global Const MB_YESNOCANCEL = 3
Global Const MB_YESNO = 4
Global Const MB_RETRYCANCEL = 5
Global Const MB_ICONSTOP = 16
Global Const MB_ICONQUESTION = 32
Global Const MB_ICONEXCLAMATION = 48
Global Const MB_ICONINFORMATION = 64
Global Const MB_DEFBUTTON2 = 256
Global Const MB_DEFBUTTON3 = 512
Global Const IDOK = 1
Global Const IDCANCEL = 2
Global Const IDABORT = 3
Global Const IDRETRY = 4
Global Const IDIGNORE = 5
Global Const IDYES = 6
Global Const IDNO = 7
Global Const POINTER_DEFAULT = 0
Global Const POINTER_HOURGLASS = 11